SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROC [dbo].[SP_TDANTC_LETR_I02]   
/*---------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                  --*/  
/*---Cliente              : CASSINELLI S.A.              --*/  
/*---Sistema              : Tesoreria                    --*/  
/*---M«dulo               : Empresa                      --*/  
/*---Programa             : Inserci½n TDANTC_LETR  --*/  
/*---Script               : ttproc_i.sql                 --*/  
/*---Nombre SP            : SP_TTPROC_INTE_I02           --*/  
/*---Desarrollado por     : Reynaldo Menacho L.          --*/  
/*---Fecha Creaci«n       : 12/09/2003           --*/  
/*---Base Datos           : Microsoft Sql Server         --*/  
/*---Versi«n              : 2000                         --*/  
/*---Invoca a SP          :                              --*/  
/*---------------------------------------------------------*/  
  
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/    
/*---Fecha Modificaci©n   : 20/04/2005                   --*/     
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/    
/*-------------------------------------------------------*/    
  
/*---------------------------------------------------------*/  
/*---Comentarios                                         --*/  
/*---                                                    --*/  
/*---                                                    --*/  
/*---------------------------------------------------------*/  
  
/*---------------------------------------------------------*/  
/*---Drop Proc SP_TDANTC_LETR_I02                        --*/  
/*---Grant all on SP_TDANTC_LETR_I02 to public           --*/   
/*---SP_TDANTC_LETR_I02 '01' , 1, 1, '03/01/1999',       --*/  
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/  
/*---------------------------------------------------------*/  
@ISCO_EMPR TD_VC_002,   
@ISCO_USUA_MODI TD_VC_008_USUA,  
@ISCO_UNID_CONC TD_VC_003,   
@ISNU_AMAR TD_VC_010,   
@IDFE_AMAR TD_DT_001,  
@INNU_SECU TD_IN_001,   
@ISCO_ENTI TD_VC_020,  
@ISCO_TIPO_DOCU TD_VC_003,  
@ISNU_DOCU_CLIE TD_VC_020,  
@INFA_CAMB_DOCU TD_NU_015_006,   
@ISCO_MONE TD_VC_003,  
@INIM_DOCU TD_NU_016_004,  
@IDFE_EMIS TD_DT_001,   
@IDFE_VENC  TD_DT_001,  
@ISCO_TIPO_OPER TD_VC_003,  
@ISDE_OBSE  TD_VC_100
	As
declare   
@VNNU_CORR TD_IN_001,  
@VNNU_LONG TD_IN_001,  
@VSNU_ULTI_CORR TD_VC_020,  
@VSCO_COND_CONT TD_VC_003,  
@VSTI_CLIE TD_VC_003  
  
  
BEGIN TRAN TDANTC_LETR_I02  
  
   
 Select  @VSCO_COND_CONT = CO_COND_CONT  
 From TMPARA_TESO  
 Where CO_EMPR = @ISCO_EMPR  
  
 Select  @VSTI_CLIE = TI_CLIE  
 From TMAUXI_EMPR  
 Where CO_EMPR = @ISCO_EMPR  
 And TI_AUXI_EMPR = 'C'  
 And  CO_AUXI_EMPR = @ISCO_ENTI  
  
 /* Obtengo Longitud para el Nœmero de Letra */  
 Select  @VNNU_LONG = IsNull(NU_LONG, 0)  
 From TTDOCU_CNTB  
 Where ST_DOCU_0006 = 'S'  
  
 /* Grabo el detalle de letras generadas */  
 Insert Into TDANTC_LETR(CO_EMPR, CO_UNID_CONC, NU_AMAR, FE_AMAR, NU_SECU, CO_TIPO_DOCU, NU_DOCU_CLIE, CO_MONE_DOCU,   
 IM_DOCU, CO_ENTI, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)  
 Values  (@ISCO_EMPR, @ISCO_UNID_CONC, @ISNU_AMAR, @IDFE_AMAR, @INNU_SECU, @ISCO_TIPO_DOCU, @ISNU_DOCU_CLIE, @ISCO_MONE,   
 @INIM_DOCU, @ISCO_ENTI, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )  
  
 IF (@@ERROR != 0)  
     BEGIN   
       RAISERROR 20001 'ERROR DE INSERCION'  
       ROLLBACK TRAN  
       RETURN  
     END  
  
 /* Grabo en la tabla de Letras */  
 Insert Into TMDOCU_CLIE(CO_EMPR, CO_TIPO_DOCU, NU_DOCU_CLIE, CO_UNID_CONC, CO_TIPO_OPER, CO_CLIE,   
 FE_EMIS, FE_VENC, FE_PROG_COBR, CO_COND_PAGO, FA_TIPO_CAMB, CO_MONE, IM_TOTA, CO_ESTA_DOCU, TI_CLIE, DE_OBSE,  
 NU_AMAR, FE_AMAR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)  
 Values (@ISCO_EMPR, @ISCO_TIPO_DOCU, @ISNU_DOCU_CLIE, @ISCO_UNID_CONC, '998', @ISCO_ENTI,   
 @IDFE_EMIS, @IDFE_VENC, @IDFE_VENC, @VSCO_COND_CONT, @INFA_CAMB_DOCU, @ISCO_MONE, @INIM_DOCU, 'ACT', @VSTI_CLIE, 
@ISDE_OBSE,  
 @ISNU_AMAR, @IDFE_AMAR, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE())  
  
 IF (@@ERROR != 0)  
     BEGIN   
       RAISERROR 20001 'ERROR DE INSERCION'  
       ROLLBACK TRAN  
       RETURN  
     END  
  
  
COMMIT TRAN TDANTC_LETR_I02  
  
/*--------------------------- Fin -------------------------------- */


GO
